home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Prg
/
IMAGELIB.ZIP
/
MIMAGE.ZIP
/
BFULLSCR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-07-26
|
1KB
|
49 lines
{Part of Imagelib VCL/DLL Library.
Written by Jan Dekkers and Kevin Adams}
unit Bfullscr;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Reg_im20;
type
TFullSlide = class(TForm)
MultiImage1: TMultiImage;
procedure ImageClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FullSlide: TFullSlide;
implementation
{$R *.DFM}
{-------------------------------------------------------------------------}
procedure TFullSlide.FormCreate(Sender: TObject);
begin
SetBounds(0,0,screen.width,screen.height);
MultiImage1.top:=0;
MultiImage1.left:=0;
MultiImage1.height:=screen.height;
MultiImage1.width:=screen.width;
end;
{-------------------------------------------------------------------------}
procedure TFullSlide.ImageClick(Sender: TObject);
begin
fullslide.close;
end;
end.